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Figure I (con't) 
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Figure 1 (con'ti) 
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Figure 2: Elaboration Algorithm 

L «- refto( top unit ) 
C = <t> 

while L != <t> 

for each reference r in L begin 
NL «- <D 
t «- iypeoff r ) 
r.target «- makenodef t ) 
C *- C + {constraints oft} 
for each field f in t begin 
NL <- NL + refto( f ^ 



end 
end 

L *- L + NL 



end 



PLINNER, BODNER, LAW-0 972 3 6966656 06/15 '01 19:18 NO. 963 14 




Figure 3 



struct cl { 
id 

data 

Idrdy 

!xreq 

Ixgrc 

arb 

keep arb « 



struct arb ( 
els 
data 

»; 

extend sys ( 
cl_list 
keep cl_list.size() =- 4; 
keep for each in delist ( 
.id « index; 

1; 

arb :arb; 

keep arb. els — cl_list; 



// arbiter client 

:int; // ray id 

:int; // data - INPUT 

:bool; // data ready - INPUT 

ibool; // transfer request - interface to arb 

:bool; // transfer grant - arb seta this 
:arb; 
sys .arb; 



:list of cl; 

:int; // data destination 



:list of cl; 



PLINNER,BODNER,LAW-0 972 3 6966656 06/15 '01 19:18 NO. 963 15 

. 'im. 




Figure 4 
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1 <• 

2 struct cl { // arbiter client 

3 id :int; // my id 

4 data :int; // data - INPUT 

5 !drdy :bool; // data ready - INPUT 

6 !xreq :bool; // transfer request 

7 '.xgrt ;bool; // transfer grant 

8 arb iarb; 

9 keep arb == sys.arb; 
XQ 

11 trans () ©sys.clk is ( 

12 while TRUE { 

13 wait true(drdy); 

14 xreq = TRUE; 

15 wait true(xgrt); 

16 arb. data = data; 

17 wait cycle; 

18 xreq - FALSE; 

19 wait true (not xgrt); 

20 drdy - FALSE; 

21 I; 

22 >; 

23 }; 
24 

25 struct arb ( 

26 els :list Of cl; 

27 data :int; // data destination 

28 switch!) @sys«clk is ( 

29 while TRUE { 

30 for each in els ( 

31 if .xreq then ( 

32 -xgrt m TRUE; 

33 wait true (not .xreq); 

34 .xgrt = FALSE; 

35 >; 

36 ) ; 

37 wait cycle; 

38 ); 

39 s ); 

40 ); ?. 

41 ! 

42 extend sys ( 

43 delist :list of cl; 

44 keep cl_list . size ( ) " 4; 

45 keep for each in delist { 
4 6 , id == index; 

47 }; 

48 arb :arb; 

49 keep arb. els « cl_list; 

50 event elk; 

51 ); 

52 '> 



Figure 6 
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Figure 8 Part II 
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Figure 9: Segmentation of a control flow graph 
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for each node n in EG such that n has processes begin 
for each process p in n begin 
for each segment s in p begin 
for each action a in s begin 
for each read expression e in a begin 
t «- evaluatef e, context ) 
tag t with { n, s, 'read 1 } 
end 

for each write expression e in a begin 
t <- evaluatef e, context ) 
tag t with { n, s, 'write' } 
end 
end 
end 
end 
end 



Figure 10 
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I Peterson's mutex algorithm - simple two agent example 
2 

3 <' 
4 

5 struct agent ( 

6 req :bool; 

7 id :int; 

8 oa : agent; 

9 p() Gays. elk is ( 

10 req * TRUE; 

II sys.k » id; 

12 while (sys.k == id) && oa.req { 

13 wait cycle; 

14 \; 

15 wait cycle; 

16 sys.w = id; // Critical segment 

17 req = FALSE; 

18 }; 

19 }; 
20 

21 extend sya ( 

22 k :int; // Requestors id. 

23 w :int; // The protected data field 

24 aO :agent; 

25 al : agent; 

26 keep aO.id -« 0; 

27 keep aO.oa ««* al; 

28 keep al.id 1; 

29 keep al.oa == aO; 

30 event elk; 

31 }; 

32 ... 

33 •» 



Figure 11 
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Figure 12 



rO_sys 
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Figure 13 



line 10 in@peterson 
line 1 1 In @peterson 
0 




line 16 in @peterson 
line 17 in @peterson 
2 
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Figure 14 
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2 
3 


This is an iterator access to hierarchical 


4 


< * 


5 


struct ball { 


6 


dat :uint (bits:3); 


7 


mat :list of bool; 


8 


keep mat. size () == 2; 


9 


} ; 


10 




11 


struct box ( 


12 


flag :booi; 


13 


bl :list of ball; 


14 


keep bl.sizeO -- S; 


15 


In- 


16 




17 


struct iter_type { 


18 


ar :11st of box; 


19 


foo() esys.clk is ( 




wait cycle; 


21 


for each in ar ( 


22 


.flag = TRUE; 


23 


for each in .bl ( 


24 


.dat « 2; 


25 


.mat[l] « FALSE; 


26 


} / 


27 


) ; 


28 


ar (2] .bl(3] .mat (0) = TRUE; 


29 


ar[2) .blfsys.ind] .mat (0) = TRUE; 


30 


) ; 




) ; 


3 2 ' 




33 


extend sys ( 


34 


event elk; 


35 


arr ;list of box; 


36 


keep arr. size () == 4; 


37 


ind :int; 


38 




39 


iter :iter_type; 


40 ; 


keep iter. a r == arr; 


41 ; 


); 


42 




43 





Figure 15 
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Figure 16 
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